#!/usr/bin/perl

use strict;
use warnings;

my %tab = ();
while (<DATA>) {
  my ($c, $w) = split;
  $tab{int(100 * $w)} = $c;
}

my @w = <>;
@w = map { $tab{int(100 * ($w[$_] - $w[$_ - 1]))} } (1 .. $#w);
print join('', @w), "\n";

__DATA__
A   71.03711
C   103.00919
D   115.02694
E   129.04259
F   147.06841
G   57.02146
H   137.05891
I   113.08406
K   128.09496
L   113.08406
M   131.04049
N   114.04293
P   97.05276
Q   128.05858
R   156.10111
S   87.03203
T   101.04768
V   99.06841
W   186.07931
Y   163.06333
